From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 12 Nov 2006 19:55:10 +0000 (+0000)
Subject: (custom-save-all): Use find-file-visit-truename for visiting the custom file.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~32125
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=9e2f5050bc4da8360c53e740445268f34fc26292;p=emacs.git

(custom-save-all): Use find-file-visit-truename for visiting the custom file.
---

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index af4cc43daec..d698aaeecc3 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -4193,7 +4193,8 @@ if only the first line of the docstring is shown."))
 					    "\\'")
 				    recentf-exclude)))
 	 (old-buffer (find-buffer-visiting filename)))
-    (with-current-buffer (or old-buffer (find-file-noselect filename))
+    (with-current-buffer (let ((find-file-visit-truename t))
+			   (or old-buffer (find-file-noselect filename)))
       (unless (eq major-mode 'emacs-lisp-mode)
 	(emacs-lisp-mode))
       (let ((inhibit-read-only t))